home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ArtRageous! the Amazing World of Art
/
ArtRageous - The Amazing World of Art (1995)(Softkey).iso
/
data
/
artmain.dir
/
00091_Script_processFrameQTVR
< prev
next >
Wrap
Text File
|
1995-12-14
|
1KB
|
39 lines
on processFrameQTVR pSpriteNum
PanoFrameScript pSpriteNum
processFramePause
end
on setupQTVR pSpriteNum, pFileName, pNodeID
set pShowOnOpen = FALSE
OpenPanoMovie pFileName, pSpriteNum, pShowOnOpen
end
on enterArtQTVR neighborhood
if neighborhood = "Color" then
set pNodeID = 1
else if neighborhood = "Composition" then
set pNodeID = 2
else if neighborhood = "DB" then
set pNodeID = 3
else if neighborhood = "LifeOfArt" then
set pNodeID = 4
else if neighborhood = "Light" then
set pNodeID = 5
else if neighborhood = "Perspective" then
set pNodeID = 6
end if
if WinMachine() then
setupQTVR 1, getat(the searchpath, 1)&"\"&"ArtScene.VR", pNodeID
else
setupQTVR 1, getat(the searchpath, 1)&":"&"ArtScene.VR", pNodeID
end if
-- set the picture of the placeholder rect to the picture of the current frame (PICT)
set the picture of cast "QTVR Placeholder" to the picture of cast (the castNum of sprite 1)
go frame "QTVR"
set pQuality = 4
set pUpdate = TRUE
SetPanoNode pNodeID, pUpdate, pQuality -- set pQuality = 0
end